home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_2003-11_2003_CSW_Side_B.d64
/
- 2 planeten -
(
.txt
)
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
39 lines
0 rem save"@:- 2 planeten -",12
1 lw=peek(186)
2 ifz=0thenz=1:goto6
3 ifz=1thenz=2:gosub10:sys49154
4 ifz=2thenz=3:goto8
5 ifz=3thenz=4:goto9
6 fora=49154to49317:readi:pokea,i:next
7 load"- 01*",lw,1:end
8 load"- 02*",lw,1:end
9 sys49152:goto 40
10 c$="[215]elle: [197]rdball":gosub1000
11 c$="auf der":gosub1000
12 c$="[215][201][204][204][207][215] 2003":gosub1000
13 c$="(28. - 30. [206]ovember)":gosub1000
14 c$="sendet":gosub1000
15 c$="[218][215][197][201] [208][204][193][206][197][212][197][206]":gosub1000
17 c$="[201][206][212][197][210][206][197][212][218]: www.welle-e.de":gosub1000
30 print"[144][147]";:pokes,21:pokev,151
31 print"[154]":return
40 goto 40
1000 m=((40-len(c$))/2):f=53281:d=53280:v=56576:s=53272:r=648:w=53266
1001 b$="[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][129] [150] [158] [158] [150] [129] [144] ":pokef,0:poked,0:print"[144][147]"
1002 a$=" [159] [153] [158] [158] [153] [159] [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][144] "
1003 poker,160:print"[147][144]"spc(m)c$:pokes,134:poker,4:pokev,149
1004 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
1005 fort=1to60:printa$;:forza=0to10:next:next:print:return
1300 :
1301 data173,17,208,41,239,141,17,208,162,127,160,64,32,156,192,162
1302 data4,160,0,32,161,192,162,131,160,39,32,114,192,162,131,160
1303 data40,32,156,192,162,216,160,0,32,161,192,162,135,160,15,32
1304 data114,192,173,16,135,141,33,208,173,17,208,9,34,141,17,208
1305 data173,22,208,41,223,9,16,141,22,208,173,24,208,9,8,141
1306 data24,208,162,96,160,0,32,156,192,162,32,160,0,32,161,192
1307 data162,127,160,63,32,114,192,173,17,208,9,16,141,17,208,96
1308 data142,1,192,140,0,192,160,0,177,251,145,253,165,252,205,1
1309 data192,208,8,165,251,205,0,192,208,1,96,230,251,208,2,230
1310 data252,230,253,208,227,230,254,76,122,192,134,252,132,251,96,134
1311 data254,132,253,96